home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
story17.zip
/
STORY.DOC
< prev
next >
Wrap
Text File
|
1988-11-09
|
13KB
|
321 lines
╓────────────────────────────────────────────────────────────╖
║ D O C U M E N T A T I O N F O R S T O R Y B O A R D ║
║ Release 17.1A - Nov. 08, 1988 ║
║ ║
║ Jason Trumble, Sysop ║
║ The PC-SIG Specialist ║
║ 19979 160th Ave. ║
║ Big Rapids, MI 49307 ║
║ ║
║ (616) 796-6230 (300/1200/2400) ║
║ (616) 796-3270 (Voice) ║
╙────────────────────────────────────────────────────────────╜
WHAT THE MOD DOES
-----------------
The Story Board is a really neat mod that I added to my system. My users
really enjoy it! I have added Story Board, Music Room, War Room, and
a variable topic board. This is an interactive story base where the users
type 4 lines maximum of 72 (or whatever they have their right margin set to)
characters and it keeps adding to the end of the file.
PS.. I added a JOKE board new to 17.1A!
This is what is needed. You need to create 4 prelog files, which consist
of:
STORY.PRE ' I have included my .PRE files - You
MUSIC.PRE ' Can use them, add to them, trash them,
WAR-ROOM.PRE ' start completely from scratch, or do
VARIABLE.PRE ' whatever you damn well please!!
JOKE.PRE
These are just text files that you create telling about what each board
does, (ie... WAR-ROOM.PRE - ATTENTION!! ADULTS ONLY! GOT SOMETHING THAT
REALLY PISSES YOU OFF?!) So create them, (or use mine) and thats about it.
With this mod, you have to give up your "I)nitial Welcome" feature (which
in the whole existence of my system, I don't think it was EVER used!)
Anyway, it replaces that. Now go into config and change the symbol that "I"
was to "$" (for $)tory-Board)... Thats about it... Now add this to your
source and you'll be running! Don't forget to change your MENUx files to
show the $)tory Board instead of I)nitial welcome.....
PS.. You can make more S)tory Boards by adding code or deleting code
after line 1554
--------------------------------
--------------------------------
---**************************---
---* CHANGES TO RBBS-PC.BAS *---
---**************************---
--------------------------------
--------------------------------
My code starts at line 1552
Add ALL of the code between where I have marked off with ^^^^^^^^
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ YO!!! START HERE! START OF STORY BOARD MODS!!!
1240 IF USER.SECURITY.LEVEL < OPT.SEC(FF) THEN _
.
.
.
.
.
1400, _ ' 1 A)nswer questionnaire 1
9700, _ ' 2 B)ulletins
1800, _ ' 3 C)omments
10970, _ ' 4 D)oor (exit to)
2000, _ ' 5 E)nter a message
1275, _ ' 6 F)ile system (exit to)
>>>>> 1552, _ ' 7 $)tory Board Mod ' !! CHANGE THIS LINE #
' was I)nitial welcome
5300, _ ' 8 J)oin a conference
3900, _ ' 9 K)ill a message
Skip to next...........
'
' **** $ - COMMAND FROM MAIN MENU (STORY BOARD AND DISPLAY TEXT FILES) ****
' This was the I)nitial Welcome command before
'
1552 CALL QTPUT(CHR$(12),0)
1554 READ$ = "NO"
CALL SKIPLINE(2)
CALL QTPUT(FG.1$+"Boards Currently Available:",1)
CALL QTPUT(FG.1$+"~~~~~~~~~~~~~~~~~~~~~~~~~~~",2)
CALL QTPUT(FG.2$+"S)tory Board",1)
CALL QTPUT(FG.3$+"M)usic Room",1)
CALL QTPUT(FG.4$+"J)oke Board",1)
CALL QTPUT(FG.1$+"W)ar Room",1)
CALL QTPUT(FG.2$+"V)ariable Topic",2)
CALL QTPUT(FG.3$+"[Q]uit"+EMPHASIZE.OFF$,2)
A$ = "Please make a Selection <S,M,J,W,V,[Q]> "
SUBROUTINE.PARAMETER = 1
TURBO.KEY = -TURBO.KEY.USER
CALL TGET
CALL ALLCAPS (B$)
IF B$ = "S" THEN _
STORY$ = "Story" _
GOTO 1556
IF B$ = "M" THEN _
STORY$ = "Music" _
GOTO 1556
IF B$ = "J" THEN _
STORY$ = "Joke" _
GOTO 1556
IF B$ = "W" THEN _
STORY$ = "War-Room" _
GOTO 1556
IF B$ = "V" THEN _
STORY$ = "Variable" _
GOTO 1556
IF B$ = "Q" THEN _
GOTO 1596
IF B$ = "" THEN _
GOTO 1596
GOTO 1596
1556 FILE.NAME$ = STORY$ + ".PRE"
GOSUB 1790
1558 CALL QTPUT(L$,1)
IF READ$ = "NO" THEN _
A$="The " + STORY$ + " Board: R)ead, or [Q]uit" _
ELSE _
A$="The " + STORY$ + " Board: R)ead, A)dd, or [Q]uit"
SUBROUTINE.PARAMETER = 1
TURBO.KEY = -TURBO.KEY.USER
CALL TGET
CALL ALLCAPS (B$)
IF B$="R" THEN 1594
IF READ$ = "NO" AND B$ = "A" THEN _
CALL QTPUT (FG.1$+CHR$(7)+CHR$(7)+"You MUST read the story FIRST!"+EMPHASIZE.OFF$,2) _
GOTO 1558
IF B$="A" THEN 1560
IF B$="Q" THEN 1554
IF B$="" THEN 1554
GOTO 1554
1560 CALL QTPUT(FG.4$+LINE.FEED$+" Type FOUR (4) Lines MAX!! (Allows Word Wrappinmg)"+EMPHASIZE.OFF$,3)
A$(1)=""
A$(2)=""
A$(3)=""
A$(4)=""
1561 CALL QTPUT(FG.2$+"1: ",0)
CALL LINEEDIT (1,RIGHT.MARGIN + 1)
IF A$(1) = "" THEN 1590
1564 CALL QTPUT(FG.2$+"2: ",0)
CALL QTPUT (A$(2),0)
CALL LINEEDIT (2,RIGHT.MARGIN + 1)
IF A$(2) = "" THEN 1570
1566 CALL QTPUT(FG.2$+"3: ",0)
CALL QTPUT (A$(3),0)
CALL LINEEDIT (3,RIGHT.MARGIN + 1)
IF A$(3) = "" THEN 1570
1568 CALL QTPUT(FG.2$+"4: ",0)
CALL QTPUT (A$(4),0)
CALL LINEEDIT (4,RIGHT.MARGIN + 1)
IF A$(4) = "" THEN 1570
1570 CALL QTPUT(FG.2$+RETURN.LINE.FEED$+"Your printed part will look like this:",3)
CALL QTPUT(FG.1$+" >> Written By: "+ACTIVE.USER.NAME$+" ----- "+DATE$+" <<"+EMPHASIZE.OFF$,2)
CALL QTPUT(A$(1),1)
IF A$(2) = "" THEN GOTO 1572
CALL QTPUT(A$(2),1)
IF A$(3) = "" THEN GOTO 1572
CALL QTPUT(A$(3),1)
IF A$(4) = "" THEN GOTO 1572
CALL QTPUT(A$(4),1)
1572 CALL QTPUT("",3)
A$ = "Do you want to edit this Y/[N]"
SUBROUTINE.PARAMETER = 1
TURBO.KEY = -TURBO.KEY.USER
CALL TGET
CALL ALLCAPS (B$)
IF YES THEN 1574
GOTO 1584
1574 CALL SKIPLINE(1)
CALL QTPUT(FG.2$+RETURN.LINE.FEED$+"Your printed part will look like this:",3)
CALL QTPUT(FG.1$+" >> Written By: "+ACTIVE.USER.NAME$+" ----- "+DATE$+" <<"+EMPHASIZE.OFF$,2)
CALL QTPUT(A$(1),1)
IF A$(2) = "" THEN GOTO 1575
CALL QTPUT(A$(2),1)
IF A$(3) = "" THEN GOTO 1575
CALL QTPUT(A$(3),1)
IF A$(4) = "" THEN GOTO 1575
CALL QTPUT(A$(4),1)
1575 CALL SKIPLINE(1)
A$ = FG.5$+"Edit What Line (1,2,3,4,L)ist,Q)uit>"+EMPHASIZE.OFF$
SUBROUTINE.PARAMETER = 1
TURBO.KEY = -TURBO.KEY.USER
CALL TGET
CALL ALLCAPS(B$)
IF B$="1" THEN GOTO 1576
IF B$="2" THEN GOTO 1578
IF B$="3" THEN GOTO 1580
IF B$="4" THEN GOTO 1582
IF B$="L" THEN GOTO 1574
IF B$="" THEN GOTO 1575
IF B$="Q" THEN GOTO 1570
1576 CALL EDITALINE(1)
GOTO 1574
1578 CALL EDITALINE(2)
GOTO 1574
1580 CALL EDITALINE(3)
GOTO 1574
1582 CALL EDITALINE(4)
GOTO 1574
1584 A$ = "Do you want this to be saved Y/[N]"
SUBROUTINE.PARAMETER = 1
TURBO.KEY = -TURBO.KEY.USER
CALL TGET
CALL ALLCAPS (B$)
IF YES THEN _
GOTO 1586
GOTO 1556
1586 CLOSE 2
CALL OPENWRKA (STORY$+".DAT")
IF A$(1) = "" THEN 1588 ' changes to next comment as above
CALL PRNTWRKA ("")
CALL PRNTWRKA (" >> Written By: "+ACTIVE.USER.NAME$+" ----- "+DATE$+" <<")
CALL PRNTWRKA ("")
CALL PRNTWRKA (A$(1))
IF A$(2)="" THEN 1588
CALL PRNTWRKA (A$(2))
IF A$(3)="" THEN 1588
CALL PRNTWRKA(A$(3))
IF A$(4)="" THEN 1588
CALL PRNTWRKA (A$(4))
1588 CLOSE 2
GOTO 1558
1590 CALL QTPUT(FG.1$+RETURN.LINE.FEED$+"Hmmm, Don't have anything to say? Oh well. Thanks anyways!"+EMPHASIZE.OFF$,1)
GOTO 1554
1592 GOTO 1596
1594 CLOSE 2
FILE.NAME$ = STORY$ + ".DAT"
GOSUB 1790
READ$ = "YES"
GOTO 1558
1596 RETURN
'1760 FILE.NAME$ = WELCOME.FILE$ <==== don't forget to comment this out!
'
'End of $)tory Board mods.......
'
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ END OF STORY BOARD MODS!!
1765 GOSUB 1790
RETURN 'Leave all of
1790 CALL GRAPHIC (USER.GRAPHIC.DEFAULT$) 'this here! IT MUST
CALL BUFFILE (FILE.NAME$,X) 'be left in for the
CALL CARRIER 'HELP(x) files to be
IF SUBROUTINE.PARAMETER = -1 THEN _ 'displayed and many
RETURN 10595 'other text files!
RETURN
'
' *** C - COMMAND FROM MAIN MENU (LEAVE COMMENT FOR SYSOP) ***
'
1800 MESSAGE.TO$ = "SYSOP"
SUBJECT$ = "COMMENT"
GOSUB 1893
IF (ACTIVE.MESSAGES >= MAXIMUM.MESSAGES OR _
Ok. Now I know this isn't the best written mod I've ever seen
(or the docs either!) But heh, what do you expect for free? Besides
it works, and thats really all that counts in the BBS business!
If you're using other mods like the Rating Board, you could always
move that to V)oting areas and move the V)iew command to the end
of P)ersonal mail (where I feel it should be in the first place!)
So what I'm trying to say is - Heh, if you don't like it, change it!
Thats about all I've got to say! Expect to hear more of me in the
lines of mods soon - I've got a few more to release.. I'll try to do
better with the docs and the design of the mods...
If your users like this, Maybe send some talk this way about it!
If they really like it, you might even do something so stupid as sending
me a donation or something (Not very likely!) Anyway, whatever you do,
just remember to give me a call! My BBS # is 616-796-6230, soon going
to 2 lines. (Thats why I need donations!)... I have over 40 doors
online and The entire PC-SIG cd-rom. Good luck! Just give me a call
if you need any help on anything, or have any suggestions (good or bad)
I just need the ego boost! Have fun......................
Jason Trumble
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Revisions to the Story Board mods
1.0 - 08/04/88 - First Release of Story Board for RBBS 16.1A - Needed major
improvements when released. The line numbering was really
wierd.. There was no word wrap and the editing abilities
were really bad.
1.1 - 11/08/88 - First Release of Story Board for RBBS 17.1x - Now features
word wrapping, and FULL editing just like the message
area. (ie.. SEARCH;REPLACE)
1.2 11/08/88 - Major bug - found out that the mod did not Save the story
properly. Updated and re-released.
1.3 11/09/88 - Another Major bug was found. Could not edit the story
unless it was a FULL 4 lines in length. All it would
do is go back to the "DO YOU WANT TO EDIT THIS" prompt.
Updated and re-released.
1.4 11/09/88 - Pete Eibl reported a problem that in the command processing
area I had forgotten to report of a line number change.
This has been corrected, Along with some FG.x$ color
variables changed so sysops that did not use full color
would not be effected. Also, ALL occurences of "OPEN #5"
have been changed to "CALL OPENWRKA" and all occurences
of "PRINT #5" have been changed to "CALL PRINTWRKA" to
allow error trapping and file sharing so that sysops
that run multi lines or desqview would not have any
problems with file locking and error trapping